home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00016_Script_Mosaic < prev    next >
Text File  |  1997-09-30  |  898b  |  35 lines
  1. -- Mosaic
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property pXSize,pYSize
  8.  
  9. on getPropertyDescriptionList
  10.    if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.  set pList=[:]
  13.   addProp pList,#pXSize,[format:#integer,comment:"Box Height:",Default:3,range:[min:1,max:20]]
  14.   addProp pList,#pYSize,[format:#integer,comment:"Box Width:",Default:3,range:[min:1,max:20]]
  15.   return pList
  16. end
  17.  
  18. on beginSprite me
  19.   set s=the spriteNum of me
  20.   if not alphaManiac(s) then exit
  21.   
  22.     mosaic(sprite s,[XRes:pXSize,YRes:pYSize])
  23.  end
  24.  
  25. on getBehaviorDescription me
  26.   set msg= "Add a mosaic effect to your AlphaMania sprite."
  27.   put return & return after msg
  28.   put "Parameters:" & return & "-----------" & return  after msg
  29.   put "*  Box Height: 1 to 20" & return after msg
  30.   put "*  Box Width:  1 to 20" after msg
  31.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  32.   return msg
  33. end
  34.  
  35.